home *** CD-ROM | disk | FTP | other *** search
/ Merciful 1 / Merciful - Disc 1.iso / software / s / saxon_publisher / saxonpublisher.dms / saxonpublisher.adf / SPData / MONOLOGUE < prev    next >
Text File  |  1990-04-30  |  6KB  |  225 lines
  1. %%!PS-Adobe-2.0
  2. %%Creator: Saxon Publisher  (C) Copyright 1989, Saxon Industries Inc.
  3. %%Pages (atend)
  4. %%EndComments
  5.  
  6. save
  7.  
  8. %You would not believe how frustrating a Linotronic can be without
  9. %these two lines.
  10. statusdict /setjobtimeout known
  11. {statusdict begin 0 setjobtimeout end} if
  12.  
  13. userdict begin
  14.  
  15. % 'Standard' AMIGA Encoding Vector
  16. % Note that some AMIGA keys are will not be accessible in standard fonts,
  17. % and will result in blank spaces being printed.
  18.  
  19. % Postscript prologues are places that programmers put comments that they
  20. % don't want the 'powers that be' to notice until it's too late
  21.  
  22. mark
  23. /MattCodes 256 array def
  24.  
  25. MattCodes 0 
  26. StandardEncoding 0 160 getinterval
  27. putinterval
  28. MattCodes 16#27 /quotesingle put
  29. MattCodes 16#60 /grave put
  30. MattCodes 8#55 /hyphen put
  31.  
  32. /space /emdash /cent /sterling
  33. /currency /yen /bar /section
  34. /dieresis /copyright /ordfeminine /guillemotleft
  35. /logicalnot /perthousand /registered /macron
  36. /ring /plusminus /.notdef /.notdef
  37. /acute /mu /paragraph /bullet
  38. /cedilla /dotlessi /ordmasculine /guillemotright
  39. /.notdef /.notdef /.notdef /.notdef
  40. /Agrave /Aacute /Acircumflex /Atilde
  41. /Adieresis /Aring /AE /Ccedilla
  42. /Egrave /Eacute /Ecircumflex /Edieresis
  43. /Igrave /Iacute /Icircumflex /Idieresis
  44. /.notdef /Ntilde /Ograve /Oacute
  45. /Ocircumflex /Otilde /Odieresis /.notdef
  46. /Oslash /Ugrave /Uacute /Ucircumflex
  47. /Udieresis /.notdef /.notdef /germandbls
  48. /agrave /aacute /acircumflex /atilde
  49. /adieresis /aring /ae /ccedilla
  50. /egrave /eacute /ecircumflex /edieresis
  51. /igrave /iacute /icircumflex /idieresis
  52. /.notdef /ntilde /ograve /oacute
  53. /ocircumflex /otilde /odieresis /.notdef
  54. /oslash /ugrave /uacute /ucircumflex
  55. /udieresis /.notdef /.notdef /ydieresis
  56. MattCodes 160 96 getinterval astore pop
  57.  
  58. /spfin (SP_) def
  59.  
  60. %size (FONT) spf
  61.  
  62. %name recName -    assigns oldName and newName
  63. /recName {
  64.    dup /oldName exch def
  65.    length 3 add string /newName exch def
  66.    newName 0 spfin putinterval
  67.    newName 3 oldName putinterval
  68.    /oldName oldName cvn def
  69.    /newName newName cvn def
  70.    } bind def
  71.    
  72. %dict copyDict -    new dict in newFont
  73. /copyDict {
  74.    dup maxlength dict /newFont exch def
  75.    {1 index /FID ne
  76.       {newFont 3 1 roll put}
  77.       {pop pop}
  78.    ifelse
  79.    }forall }bind def
  80.  
  81. /spf {
  82.   recName /newSize exch def
  83.   FontDirectory newName known not
  84.      {
  85.      oldName findfont copyDict
  86.      newFont /Encoding MattCodes put
  87.      newName newFont definefont pop
  88.      } if
  89.   newName findfont [newSize 0 0 newSize neg 0 0] makefont setfont
  90.   } bind def
  91.  
  92. /in {72 mul} bind def
  93. /sg  /setgray load def
  94. /sgy {255 div sg} bind def
  95. /shsb /sethsbcolor load def
  96. /cpt {currentpoint newpath moveto charpath} bind def
  97.  
  98. /mvx {currentpoint exch pop moveto} bind def
  99. /trs /translate load def
  100. /mvt {transform round .25 add exch round .25 add exch itransform moveto
  101.       } bind def
  102. /lto {transform round .25 add exch round .25 add exch itransform lineto
  103.       } bind def
  104. /cto {
  105.    6 -2 roll
  106.    transform round .25 add exch round .25 add exch itransform
  107.    6 -2 roll
  108.    transform round .25 add exch round .25 add exch itransform
  109.    6 -2 roll
  110.    transform round .25 add exch round .25 add exch itransform
  111.    curveto} bind def
  112. /tempmatrix matrix def
  113. /boxmat {
  114.    dup dup dup
  115.    10 -1 roll exch div
  116.    7 -1 roll 5 -1 roll div
  117.    8 -1 roll 5 -1 roll div
  118.    6 -1 roll 5 -1 roll div
  119.    6 -1 roll 6 -1 roll
  120.    tempmatrix astore concat} bind def
  121.  
  122. /LinoPage {
  123.    statusdict /setpage known  
  124.        {statusdict begin 72 mul exch 72 mul 0 setpage end}
  125.     {pop pop} ifelse
  126.    } def
  127.    
  128. /MONO 0 def
  129. /YELLOW 1 def
  130. /CYAN 2 def
  131. /MAGENTA 3 def
  132. /BLACK 4 def
  133.  
  134. /printpass MONO def
  135.  
  136. /PageMatrix matrix def
  137.  
  138. % OutPageWidth OutPageHeight DocPageWidth DocPageHeight Scale crop -
  139. /crop {
  140.    gsave newpath clippath 1 setgray fill grestore
  141.    /Scale exch def
  142.    /Hei exch def
  143.    /Wid exch def
  144.    /PHei exch in def
  145.    /PWid exch in def
  146.    0.1 setlinewidth newpath
  147.    PWid 2 div PHei 2 div translate
  148.    PWid PHei gt Wid Hei gt
  149.    {90 rotate} if
  150.    {270 rotate} if
  151.    Scale dup neg scale
  152.    Wid 2 div neg Hei 2 div neg translate
  153.    newpath
  154.    gsave 0 setgray
  155.    0 0 moveto -36 0 rlineto stroke
  156.    0 0 moveto 0 -36 rlineto stroke
  157.    Wid Hei moveto 36 0 rlineto stroke
  158.    Wid Hei moveto 0 36 rlineto stroke
  159.    0 Hei moveto -36 0 rlineto stroke
  160.    0 Hei moveto 0 36 rlineto stroke
  161.    Wid 0 moveto 36 0 rlineto stroke
  162.    Wid 0 moveto 0 -36 rlineto stroke
  163.    grestore newpath
  164.    -10 -10 moveto Wid 10 add -10 lineto Wid 10 add Hei 10 add lineto
  165.    -10 Hei 10 add lineto closepath eofill
  166.    0 0 moveto Wid 0 lineto Wid Hei lineto 0 Hei lineto
  167.    closepath clip newpath
  168.    PageMatrix currentmatrix pop
  169.    } bind def
  170.  
  171. /setrgbcolor {
  172.    add add 3 div sg
  173.    } bind def
  174.  
  175. /sethsbcolor {
  176.    shsb currentrgbcolor
  177.    add add 3 div sg
  178.    } bind def
  179.  
  180. /monochrome {
  181.    /printpass MONO def
  182.    currentscreen exch pop exch pop
  183.    density exch Ablack exch setscreen
  184.    } bind def
  185.  
  186. /trapstroke {
  187.    gsave PageMatrix setmatrix
  188.    {gsave dup 32 div 0.5 add setlinewidth 0 sg stroke grestore} if
  189.    32 div setlinewidth
  190.    stroke grestore newpath
  191.    } bind def
  192.  
  193. /trapfill {
  194.    gsave PageMatrix setmatrix
  195.    0 sg 0.5 setlinewidth stroke
  196.    grestore} bind def
  197.  
  198. /trapshow {
  199.    gsave true charpath PageMatrix setmatrix
  200.    0 sg .5 setlinewidth stroke grestore} bind def
  201.  
  202. /saxbegineps {
  203.     newpath
  204.     /saxboundy exch def
  205.     /setflat {pop} bind def
  206.     /setscreen {pop pop pop} bind def
  207.     /showpage {} def
  208.     /copypage {} def
  209.     /def {1 index /pageysize eq {pop saxboundy} if
  210.         def} bind def
  211.     } bind def
  212.  
  213. /uld {gsave newpath 32 div dup setlinewidth 2 mul exch 32 div add 
  214.     2 index 32 div exch mvt    sub neg 32 div 0 rlineto 0 setgray 
  215.     stroke grestore    } bind def
  216.  
  217. /mattransfer currenttransfer def
  218.  
  219. /negate { {1 exch sub mattransfer} settransfer } def
  220.  
  221. %this in for safety's sake
  222. cleartomark
  223.  
  224.  
  225.